home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 27 / CU Amiga Magazine's Super CD-ROM 27 (1998)(EMAP Images)(GB)[!][issue 1998-10].iso / CUCD / Programming / JForth / Extras / SysGen / sayhello < prev    next >
Encoding:
Text File  |  1992-04-03  |  669 b   |  27 lines
  1. \ 00001 PLB 12/31/91 Added Serial# print.
  2. \ 00002 PLB 4/3/92 Added 0 #TIB !
  3.  
  4. : (hello)
  5.   cls
  6.   cr cr  25 spaces        ." /|====================|\"   cr  11 spaces
  7.             ." ----======[[[[ |"
  8.   $ 9b emit ." 33;42m  JForth for Amiga  "
  9.   $ 9b emit ." 31;40m| ]]]]======----"
  10.   cr     25 spaces        ." \|====================|/"
  11.   cr cr  20 spaces
  12.   $ 9b emit ." 33m"
  13.   sp@ here - .    ." dictionary bytes available"
  14.   $ 9b emit ." 31m"
  15.   cr cr 5 spaces   ascii - 69 emit-to-column  cr
  16. \
  17. \ Give Beta message
  18.   cr
  19.   ." Copyright © 1992 Delta Research" cr cr
  20.   ." Serial# = " serial# @ . cr \ 00001
  21. \
  22. \ fix #TIB after COLD , 00002
  23.     0 #TIB !
  24. ;
  25.  
  26. ' (hello) is SayHello
  27.